home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / excel / EXCEL.ZIP / EXCELTOP.DFM / EXCELTOP.txt
Encoding:
Text File  |  1997-07-20  |  15.0 KB  |  503 lines
  1. object Form1: TForm1
  2.   Left = 226
  3.   Top = 142
  4.   BorderIcons = []
  5.   BorderStyle = bsDialog
  6.   Caption = 'TExcel 3.1 demo'
  7.   ClientHeight = 360
  8.   ClientWidth = 427
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   TextHeight = 13
  18.   object cmStop: TBitBtn
  19.     Left = 8
  20.     Top = 88
  21.     Width = 409
  22.     Height = 265
  23.     Cancel = True
  24.     Caption = 'Stop table progress'
  25.     Default = True
  26.     Font.Color = clBlack
  27.     Font.Height = -11
  28.     Font.Name = 'System'
  29.     Font.Style = [fsBold]
  30.     ParentFont = False
  31.     TabOrder = 3
  32.     Visible = False
  33.     OnClick = cmStopClick
  34.     Glyph.Data = {
  35.       76060000424D7606000000000000760000002800000030000000400000000100
  36.       0400000000000006000000000000000000001000000000000000000000000000
  37.       8000008000000080800080000000800080008080000080808000C0C0C0000000
  38.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  39.       3333333333333333333333333333333333333333333333333333333777777777
  40.       7777733333333333333333333333333333337777777777777777777733333333
  41.       3333333333333333337770000000000000077777773333333333333333333333
  42.       3700099191191111111000777773333333333333333333330019191999999999
  43.       9911110077773333333333333333333091919191999999999191911107777333
  44.       3333333333333330191910901999999090901911107773333333333333333333
  45.       0100919191999191911111011107333333333333333333330019191999999919
  46.       1919111101077333333333333333333091919999999999999191919110777333
  47.       3333333333333309191999999999999999191919110777333333333333333091
  48.       9999999999999999999991919107773333333333333309199999999919199999
  49.       9999991101107733333333333333019999999999919199999999919111007773
  50.       3333333333309999999999999919099999999919111077733333333333309999
  51.       9999999999919199999191919111077333333333333019999999999999111999
  52.       9999191919110773333333333309999999999999999101999999999191110773
  53.       3333333333099999999999999911199999999999191107733333333333019999
  54.       9999999991110199999999999110077733333333330999999999999919101999
  55.       9999991919110777333333333099999999999991911099999999999991911077
  56.       3333333330999999999999191109999999999999991110773333333330999999
  57.       9999919110999999999999999191107733333333309999991919191009999999
  58.       9999999919191077333333333099999991919001999999999999999999911077
  59.       3333333330999999191009199999999999999999991110773333333330999991
  60.       9101999999999999999999999191107733333333309999991109999999999999
  61.       9999999999191077333333333099999111019999999999999999999999911077
  62.       3333333330999999101999999999999999999919999110773333333330999991
  63.       1099999199999991999999999991107733333333309999191019999999999999
  64.       9999991099991077333333330999999100999991099999919999919999911077
  65.       3333333309991911099999199999991909999910999110773333333309999991
  66.       0999999109999191999991109991107733333333099919100999991109999911
  67.       0999191099991077333333309999911009999191099991910999911099911077
  68.       3333333099991107099999110999991109991910999910773333333091919103
  69.       0999919109999191099991109991107733333333091910330999991109999911
  70.       0999191099991077333333333000033309999191099991910999911099911077
  71.       3333333333333333099999110999991109991910999910773333333333333333
  72.       0999919109999191099991109991107733333333333333330999991109999911
  73.       0999191099991077333333333333333309999191099991910999911099911077
  74.       3333333333333333099999110999991109991910999910773333333333333333
  75.       0999919109999191099991109991107733333333333333330999991109999911
  76.       0999191099991077333333333333333309999191099991910999911099911073
  77.       3333333333333333099999110999991109991910999910333333333333333333
  78.       0999919109999191099991100911033333333333333333330999991109999911
  79.       0999191070003333333333333333333309999191099991910999911077333333
  80.       3333333333333333099999110999991109991910773333333333333333333333
  81.       0999919109999191099991107333333333333333333333330999191109999911
  82.       0999111033333333333333333333333330919111099991910091110333333333
  83.       3333333333333333330911100999191107000033333333333333333333333333
  84.       3330000309919111033333333333333333333333333333333333333330191110
  85.       3333333333333333333333333333333333333333330000033333333333333333
  86.       3333333333333333333333333333333333333333333333333333}
  87.     Layout = blGlyphTop
  88.   end
  89.   object cmClose: TBitBtn
  90.     Left = 328
  91.     Top = 317
  92.     Width = 88
  93.     Height = 25
  94.     Caption = '&Close'
  95.     TabOrder = 0
  96.     OnClick = cmCloseClick
  97.     Kind = bkCancel
  98.     Spacing = -1
  99.   end
  100.   object Panel1: TPanel
  101.     Left = 8
  102.     Top = 8
  103.     Width = 409
  104.     Height = 73
  105.     BevelInner = bvLowered
  106.     BevelWidth = 3
  107.     BorderStyle = bsSingle
  108.     TabOrder = 1
  109.     object Label3: TLabel
  110.       Left = 336
  111.       Top = 6
  112.       Width = 44
  113.       Height = 13
  114.       Caption = 'Wait&After'
  115.       FocusControl = SpinEdit3
  116.     end
  117.     object Label2: TLabel
  118.       Left = 280
  119.       Top = 6
  120.       Width = 35
  121.       Height = 13
  122.       Caption = 'C&olumn'
  123.       FocusControl = SpinEdit2
  124.     end
  125.     object Label1: TLabel
  126.       Left = 224
  127.       Top = 6
  128.       Width = 22
  129.       Height = 13
  130.       Caption = 'Ro&w'
  131.       FocusControl = SpinEdit1
  132.     end
  133.     object LabelTime: TLabel
  134.       Left = 112
  135.       Top = 48
  136.       Width = 42
  137.       Height = 13
  138.       Caption = '00:00:00'
  139.     end
  140.     object Label4: TLabel
  141.       Left = 40
  142.       Top = 48
  143.       Width = 63
  144.       Height = 13
  145.       Caption = 'Elapsed time:'
  146.     end
  147.     object LabelTotal: TLabel
  148.       Left = 280
  149.       Top = 48
  150.       Width = 61
  151.       Height = 13
  152.       Caption = 'of 0 transfers'
  153.     end
  154.     object LabelTransfer: TLabel
  155.       Left = 270
  156.       Top = 48
  157.       Width = 6
  158.       Height = 13
  159.       Alignment = taRightJustify
  160.       Caption = '0'
  161.     end
  162.     object cmTable: TBitBtn
  163.       Left = 16
  164.       Top = 16
  165.       Width = 89
  166.       Height = 25
  167.       Caption = '&Table'
  168.       Enabled = False
  169.       TabOrder = 0
  170.       OnClick = cmTableClick
  171.       Glyph.Data = {
  172.         36010000424D3601000000000000760000002800000014000000100000000100
  173.         040000000000C000000000000000000000001000000000000000000000000000
  174.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  175.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  176.         00000033222200000000007006666033222207777777770F0666603311110777
  177.         777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
  178.         88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
  179.         0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
  180.         0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
  181.         2D1008FEFE073308888703330440000000733330000003337748}
  182.       Spacing = -1
  183.     end
  184.     object SpinEdit1: TSpinEdit
  185.       Left = 216
  186.       Top = 20
  187.       Width = 49
  188.       Height = 22
  189.       Increment = 10
  190.       MaxValue = 16000
  191.       MinValue = 1
  192.       TabOrder = 1
  193.       Value = 100
  194.     end
  195.     object SpinEdit2: TSpinEdit
  196.       Left = 272
  197.       Top = 20
  198.       Width = 49
  199.       Height = 22
  200.       Increment = 10
  201.       MaxValue = 128
  202.       MinValue = 1
  203.       TabOrder = 2
  204.       Value = 10
  205.     end
  206.     object SpinEdit3: TSpinEdit
  207.       Left = 336
  208.       Top = 20
  209.       Width = 57
  210.       Height = 22
  211.       Increment = 10
  212.       MaxValue = 0
  213.       MinValue = 0
  214.       TabOrder = 3
  215.       Value = 10
  216.     end
  217.     object CheckBox1: TCheckBox
  218.       Left = 120
  219.       Top = 22
  220.       Width = 89
  221.       Height = 17
  222.       Caption = '&New table'
  223.       State = cbChecked
  224.       TabOrder = 4
  225.     end
  226.   end
  227.   object Panel2: TPanel
  228.     Left = 8
  229.     Top = 88
  230.     Width = 409
  231.     Height = 57
  232.     BevelInner = bvLowered
  233.     BevelWidth = 3
  234.     BorderStyle = bsSingle
  235.     TabOrder = 2
  236.     object Label5: TLabel
  237.       Left = 136
  238.       Top = 6
  239.       Width = 47
  240.       Height = 13
  241.       Caption = 'Comman&d'
  242.       FocusControl = ComboBox1
  243.     end
  244.     object ComboBox1: TComboBox
  245.       Left = 120
  246.       Top = 20
  247.       Width = 273
  248.       Height = 21
  249.       ItemHeight = 13
  250.       Items.Strings = (
  251.         '[SELECT("R2C1")]'
  252.         '[SELECT("R1C1:R11C4")]'
  253.         '[FORMULA("xxx","R1C1")]'
  254.         '[ACTIVATE("Book1")]'
  255.         '[WORKBOOK.SELECT("Sheet1")]'
  256.         '[WORKBOOK.NAME("Sheet1";"Products")]'
  257.         '[COLUMN.WIDTH(16,"C3:C5")]'
  258.         '[ROW.HEIGHT(30,"R1:R3")]'
  259.         '[ALIGNMENT(2,FALSE,3,0)]'
  260.         '[FORMAT.NUMBER("# ### ##0.00")]'
  261.         '[FORMAT.FONT(,12,TRUE,FALSE,TRUE,FALSE,0)]'
  262.         '[FORMULA.FIND("str",1,2,2,1,FALSE)]'
  263.         '[DISPLAY(FALSE,FALSE,TRUE,TRUE,0,,TRUE,FALSE,1)]'
  264.         
  265.           '[PAGE.SETUP("","",0.5,0.5,1,1,FALSE,FALSE,FALSE,FALSE,1,9,100,1,' +
  266.           '1,FALSE)]'
  267.         '[DISABLE.INPUT(TRUE)]'
  268.         '[NEW(1)]'
  269.         '[WORKBOOK.INSERT(1)]'
  270.         '[OPEN("FileName")]'
  271.         '[SAVE.AS("BOOK1.XLS";1;"";FALSE;"";FALSE)] '
  272.         '[CLOSE(FALSE)]'
  273.         '[RUN("FileName!Macro",FALSE)]')
  274.       TabOrder = 0
  275.     end
  276.     object cmCommand: TBitBtn
  277.       Left = 16
  278.       Top = 16
  279.       Width = 89
  280.       Height = 25
  281.       Caption = '&Execute'
  282.       Enabled = False
  283.       TabOrder = 1
  284.       OnClick = cmCommandClick
  285.       Glyph.Data = {
  286.         36010000424D3601000000000000760000002800000014000000100000000100
  287.         040000000000C000000000000000000000001000000000000000000000000000
  288.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  289.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  290.         00000033222200000000007006666033222207777777770F0666603311110777
  291.         777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
  292.         88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
  293.         0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
  294.         0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
  295.         2D1008FEFE073308888703330440000000733330000003337748}
  296.       Spacing = -1
  297.     end
  298.   end
  299.   object Panel3: TPanel
  300.     Left = 8
  301.     Top = 296
  302.     Width = 273
  303.     Height = 57
  304.     BevelInner = bvLowered
  305.     BevelWidth = 3
  306.     BorderStyle = bsSingle
  307.     TabOrder = 4
  308.     object Label7: TLabel
  309.       Left = 136
  310.       Top = 6
  311.       Width = 59
  312.       Height = 13
  313.       Caption = '&Macro name'
  314.       FocusControl = ComboBox3
  315.     end
  316.     object cmRun: TBitBtn
  317.       Left = 16
  318.       Top = 16
  319.       Width = 105
  320.       Height = 25
  321.       Caption = 'R&un macro'
  322.       Enabled = False
  323.       TabOrder = 0
  324.       OnClick = cmRunClick
  325.       Glyph.Data = {
  326.         36010000424D3601000000000000760000002800000014000000100000000100
  327.         040000000000C000000000000000000000001000000000000000000000000000
  328.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  329.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  330.         00000033222200000000007006666033222207777777770F0666603311110777
  331.         777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
  332.         88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
  333.         0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
  334.         0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
  335.         2D1008FEFE073308888703330440000000733330000003337748}
  336.       Spacing = -1
  337.     end
  338.     object ComboBox3: TComboBox
  339.       Left = 128
  340.       Top = 18
  341.       Width = 129
  342.       Height = 21
  343.       Style = csDropDownList
  344.       ItemHeight = 13
  345.       Items.Strings = (
  346.         'ClearAll'
  347.         'FillAll'
  348.         'BoldFace'
  349.         'SetWidth')
  350.       TabOrder = 1
  351.     end
  352.   end
  353.   object Panel4: TPanel
  354.     Left = 8
  355.     Top = 152
  356.     Width = 217
  357.     Height = 57
  358.     BevelInner = bvLowered
  359.     BevelWidth = 3
  360.     BorderStyle = bsSingle
  361.     TabOrder = 5
  362.     object Label6: TLabel
  363.       Left = 120
  364.       Top = 6
  365.       Width = 20
  366.       Height = 13
  367.       Caption = '&Item'
  368.       FocusControl = ComboBox2
  369.     end
  370.     object cmRequest: TBitBtn
  371.       Left = 16
  372.       Top = 16
  373.       Width = 89
  374.       Height = 25
  375.       Caption = '&Request'
  376.       Enabled = False
  377.       TabOrder = 0
  378.       OnClick = cmRequestClick
  379.       Glyph.Data = {
  380.         36010000424D3601000000000000760000002800000014000000100000000100
  381.         040000000000C000000000000000000000001000000000000000000000000000
  382.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  383.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  384.         00000033222200000000007006666033222207777777770F0666603311110777
  385.         777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
  386.         88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
  387.         0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
  388.         0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
  389.         2D1008FEFE073308888703330440000000733330000003337748}
  390.       Spacing = -1
  391.     end
  392.     object ComboBox2: TComboBox
  393.       Left = 112
  394.       Top = 18
  395.       Width = 89
  396.       Height = 21
  397.       ItemHeight = 13
  398.       Items.Strings = (
  399.         'SysItems'
  400.         'Topics'
  401.         'Status'
  402.         'Formats'
  403.         'Selection'
  404.         'Protocols'
  405.         'EditEnvItems')
  406.       TabOrder = 1
  407.       OnChange = ComboBox2Change
  408.     end
  409.   end
  410.   object Panel5: TPanel
  411.     Left = 8
  412.     Top = 224
  413.     Width = 217
  414.     Height = 57
  415.     BevelInner = bvLowered
  416.     BevelWidth = 3
  417.     BorderStyle = bsSingle
  418.     TabOrder = 6
  419.     object Label9: TLabel
  420.       Left = 160
  421.       Top = 6
  422.       Width = 35
  423.       Height = 13
  424.       Caption = 'Column'
  425.       FocusControl = SpinEdit5
  426.     end
  427.     object Label8: TLabel
  428.       Left = 120
  429.       Top = 6
  430.       Width = 22
  431.       Height = 13
  432.       Caption = 'Row'
  433.       FocusControl = SpinEdit4
  434.     end
  435.     object cmGetCell: TBitBtn
  436.       Left = 16
  437.       Top = 16
  438.       Width = 89
  439.       Height = 25
  440.       Caption = '&GetCell'
  441.       Enabled = False
  442.       TabOrder = 0
  443.       OnClick = cmGetCellClick
  444.       Glyph.Data = {
  445.         36010000424D3601000000000000760000002800000014000000100000000100
  446.         040000000000C000000000000000000000001000000000000000000000000000
  447.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  448.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  449.         00000033222200000000007006666033222207777777770F0666603311110777
  450.         777770FE000000731111000000070FE0FEFE0770000030888880FE0FEFE07770
  451.         88883308880FE0FEFE0780700033333080FE0FEFE078887077FF33330FE0FEFE
  452.         0700000088883330FE0FEFE0703333330000330FE0FEFE0777033333000030FE
  453.         0FEFE0780770333300000FE0FEFE07888077033300010E0FEFE0708888070333
  454.         2D1008FEFE073308888703330440000000733330000003337748}
  455.       Spacing = -1
  456.     end
  457.     object SpinEdit4: TSpinEdit
  458.       Left = 112
  459.       Top = 18
  460.       Width = 41
  461.       Height = 22
  462.       MaxValue = 16000
  463.       MinValue = 1
  464.       TabOrder = 1
  465.       Value = 1
  466.     end
  467.     object SpinEdit5: TSpinEdit
  468.       Left = 160
  469.       Top = 18
  470.       Width = 41
  471.       Height = 22
  472.       MaxValue = 128
  473.       MinValue = 1
  474.       TabOrder = 2
  475.       Value = 1
  476.     end
  477.   end
  478.   object GroupBox1: TGroupBox
  479.     Left = 232
  480.     Top = 148
  481.     Width = 185
  482.     Height = 133
  483.     Caption = 'Reply'
  484.     TabOrder = 7
  485.     object Memo: TMemo
  486.       Left = 2
  487.       Top = 15
  488.       Width = 181
  489.       Height = 116
  490.       Align = alClient
  491.       ReadOnly = True
  492.       ScrollBars = ssBoth
  493.       TabOrder = 0
  494.     end
  495.   end
  496.   object Timer1: TTimer
  497.     Enabled = False
  498.     Interval = 10
  499.     OnTimer = Timer1Timer
  500.     Left = 392
  501.   end
  502. end
  503.